home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Rexx / PrevParagraph.bed < prev    next >
Encoding:
Text File  |  1998-06-24  |  579 b   |  56 lines
  1. /*
  2. ** $VER: PrevParagraph.bed 1.0 (06.01.96)
  3. **
  4. ** Move the cursor to the start of the previous paragraph
  5. **
  6. ** Modified by Marco Negri
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. str = ' ' || '09'X
  12.  
  13. SetLockInput ON
  14. SetLockDisplay ON
  15.  
  16. MoveSOL
  17.  
  18. DO FOREVER
  19.  
  20.     GetLine
  21.         IF COMPRESS(RESULT,str) = "" THEN BREAK
  22.  
  23.     MoveUp
  24.  
  25.     IF RC ~= 0 THEN EXIT
  26.  
  27. END
  28.  
  29. DO FOREVER
  30.  
  31.     GetLine
  32.     IF COMPRESS(RESULT,str) ~= "" THEN BREAK
  33.  
  34.     MoveUp
  35.  
  36.     IF RC ~= 0 THEN EXIT
  37.  
  38. END
  39.  
  40. DO FOREVER
  41.  
  42.     GetLine
  43.     IF COMPRESS(RESULT,str) = "" THEN DO
  44.         MoveDown
  45.         EXIT
  46.     END
  47.  
  48.     MoveUp
  49.  
  50.     IF RC ~= 0 THEN EXIT
  51.  
  52. END
  53.  
  54. SetLockInput OFF
  55. SetLockDisplay OFF
  56.